home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 September
/
1987-09.d64
/
128 prg appender
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
460b
|
11 lines
0 rem copyright 1987 compute! publications, inc. - all rights reserved
1 bu=842:bc=208:s1=45:s2=46:a=peek(s1):b=peek(s2):c=peek(4624):d=peek(4625)
2 input"[147][144]program to append";prog$:ifprog$="quit"then9
3 open15,8,15,"i0:":open1,8,8,prog$+",p,r":input#15,e,e$
4 close1:close15:ifethenprint"error:"e;e$:end
5 print"[147]load"chr$(34)prog$chr$(34)",8"
6 print"poke"s1","a":poke"s2","b"":pokebu,13:pokebu+1,13:pokebc,2
7 ifc>1thenpokes1,c-2:pokes2,d:end
8 pokes1,c+253:pokes2,d-1:end
9 print"[147]":forj=0to9:printj:pokebu+j,13:next:pokebc,10:print"":end